(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     58132,       1488]
NotebookOptionsPosition[     45728,       1236]
NotebookOutlinePosition[     46461,       1261]
CellTagsIndexPosition[     46381,       1256]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["1.0", "HistoryData",
  CellTags->"New",ExpressionUUID->"34232b49-699b-4f5d-9524-f8f245df2406"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"e5ff8d40-3c1d-4d1a-817a-2cebd432afec"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"d12dcbd1-a012-4478-85ef-962ad2bf8a2a"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"99615b7f-2d54-4b76-975c-df89378352f8"]
}], "History",
 CellChangeTimes->{{3.824389330232067*^9, 3.824389330406601*^9}},
 CellID->1247902091,ExpressionUUID->"aa481e91-aa4e-4a40-a6dc-3fb498db3d1f"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"2a84898a-a34b-4ed2-97ed-fc78acfbdde4"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"e4648e69-d16d-486d-b513-cc8741343e57"],

Cell["RefpropLink Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->19400070,ExpressionUUID->"98df60cc-027b-40f6-98c9-4c4e1f0918f0"],

Cell["RefpropLink`", "Categorization",
 CellLabel->"Context",
 CellID->52302932,ExpressionUUID->"04ad1c45-d6ab-4d70-b674-4b71de6863f7"],

Cell["RefpropLink/ref/sats", "Categorization",
 CellLabel->"URI",
 CellID->198016702,ExpressionUUID->"31a35852-090f-4c5c-ac29-8fd8850249dd"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"e0a4d7c6-7300-4dbd-b39b-6577f2f1112f"],

Cell["Saturation", "Keywords",
 CellChangeTimes->{{3.8243893414380665`*^9, 3.8243893450105104`*^9}},
 CellID->1164421360,ExpressionUUID->"68da8749-8e43-4579-ab73-c138005e20d7"],

Cell["VLE", "Keywords",
 CellChangeTimes->{{3.8243893414380665`*^9, 3.824389349353921*^9}},
 CellID->426357377,ExpressionUUID->"4e29c4a0-6343-491f-8c31-936d7e4b966b"],

Cell["Equilibrium", "Keywords",
 CellChangeTimes->{{3.8243893414380665`*^9, 3.8243893655455847`*^9}, {
  3.824389429642145*^9, 3.824389429642145*^9}},
 CellID->609218670,ExpressionUUID->"e3ff5862-db67-48c3-9ba1-b677ef5c798d"],

Cell["Phase Boundary", "Keywords",
 CellChangeTimes->{{3.8243893414380665`*^9, 3.8243893655455847`*^9}, {
  3.824389430271463*^9, 3.8243894331906834`*^9}},
 CellID->433150388,ExpressionUUID->"439be870-ac94-4bbb-9d4a-92947d24c135"],

Cell["entropy", "Keywords",
 CellChangeTimes->{{3.8243893414380665`*^9, 3.824389377929462*^9}},
 CellID->42456996,ExpressionUUID->"88cc67d7-41d9-4bba-bf60-9be025f9750d"],

Cell["bubble point", "Keywords",
 CellChangeTimes->{{3.8243893414380665`*^9, 3.8243893845627193`*^9}},
 CellID->339679400,ExpressionUUID->"a2db184c-daec-4d09-b9d9-70d01b956db7"],

Cell["dew point", "Keywords",
 CellChangeTimes->{{3.8243893414380665`*^9, 3.8243893871029263`*^9}},
 CellID->440167432,ExpressionUUID->"882f2a15-f813-4507-ab6d-261053702486"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"744e7cdc-4835-403c-ae84-88c19ec20a21"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"12a48844-48d9-4349-89af-1beee084cecc"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"8e174c9b-dc89-4b9b-8f30-ff719a3c9f88"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"978057ab-69b4-4248-b1f0-f960ce2a77c4"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"2dfa199d-fa76-43b9-86c9-939332f985d1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"42026b1d-7778-4490-afcc-6bb72687b271"],

Cell["Patrick Fourspring", "Details",
 CellChangeTimes->{{3.8243895863819427`*^9, 3.8243895894387383`*^9}},
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"eccb972c-7a48-4510-b973-02a98829b518"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.824389594030486*^9, 3.824389595622237*^9}},
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"7ed312dc-3511-45b0-957e-486a80f94745"],

Cell["Jeff Henning", "Details",
 CellChangeTimes->{{3.824389599254484*^9, 3.8243896009818926`*^9}},
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"332836a5-cd0a-440e-bf2b-efd9f3d2508d"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"21952f21-6d33-484e-8937-30e018bba4a2"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"597e0e59-3024-4559-b6ca-191e3835c5f6"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"1a317fdc-c121-45e5-8275-f3401b10e358"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"48738170-b41d-4dad-b781-16ef61f8093e"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"d232ec52-5a1f-43c3-97c3-c177f329aa27"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"4e6a6763-edd0-4906-b25d-01f80b8ebf9f"]
}, Closed]],

Cell[CellGroupData[{

Cell["sats", "ObjectName",
 CellID->1224892054,ExpressionUUID->"3a8b0151-0845-494e-a79e-4b7fa2975f10"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"be478512-1354-4fbb-b9b8-f653f55c46f4"],
 Cell[BoxData[
  RowBox[{"sats", "[", 
   RowBox[{
    StyleBox["s", "TI"], ",", 
    StyleBox["z", "TI"], ",", 
    StyleBox["kph", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "f84e83f4-4e51-409b-9b52-29ffce61ac42"],
 "\[LineSeparator]Iterate for temperature, pressure, and density given \
entropy along the saturation boundary and the bulk composition. "
}], "Usage",
 CellChangeTimes->{
  3.8243892695327034`*^9, 3.824389663497655*^9, {3.824408958813317*^9, 
   3.824408959348874*^9}},ExpressionUUID->"e143d12b-ed56-4c17-84d0-\
a664adc56eb6"],

Cell["\<\
Iterate for temperature, pressure, and density given entropy along the \
saturation boundary and the bulk composition.\
\>", "Notes",
 CellChangeTimes->{
  3.8243933689474382`*^9, {3.8244089641011624`*^9, 3.8244089646207724`*^9}},
 CellID->831644014,ExpressionUUID->"44f63c2d-4c48-4efe-b7f1-b3f42277e540"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula",ExpressionUUID->
  "5bda0844-08e3-4b61-9c9e-128c2df55ca6"],
 " is the molar entropy in [J/mol-K].  If passed as a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "82a32631-ddbb-480e-87db-1ef426a9687b"],
 ", it can have any system of units attached as long as it is in energy per \
mole per absolute temperature unit."
}], "Notes",
 CellChangeTimes->{{3.824393392956252*^9, 3.824393428795391*^9}, {
   3.8243934594753323`*^9, 3.8243934986076355`*^9}, 3.824393703906522*^9, {
   3.8244090056898966`*^9, 3.824409017020591*^9}},
 CellID->107485276,ExpressionUUID->"6ff3dae2-7032-434e-8aa6-941fbba4019e"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "76193b7b-bf6b-43f2-bb51-cf7ce4140df3"],
 " is the molar composition.  For pure fluids, this is a single element List \
of {1.0}.  This is the default value and z can be omitted from the parameter \
list in this case.  Form mixtures, z must be passed as an ",
 StyleBox["nc",
  FontSlant->"Italic"],
 "-element List, where ",
 StyleBox["nc",
  FontSlant->"Italic"],
 " is the number of components in the mixture.  For example, a 40% mixture of \
methanol in water would have a water/methanol mole fraction list of, ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "16b4fd4f-0972-4d26-9be7-e7f3ba31f9e3"],
 " = {0.6, 0.4}."
}], "Notes",
 CellChangeTimes->{{3.8243935120786047`*^9, 3.824393754616887*^9}},
 CellID->204548867,ExpressionUUID->"9c94a6a4-e6f8-4cda-adad-ae2832ef50bf"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "db3bde13-9424-493b-a52c-571ee754f549"],
 " is a flag that is set to the desired roots.  The legal values are:"
}], "Notes",
 CellChangeTimes->{
  3.824389667174818*^9, 3.8243937622783947`*^9, {3.8243942639785275`*^9, 
   3.8243942751546335`*^9}, {3.824394405346409*^9, 3.82439441631507*^9}},
 CellID->1067943069,ExpressionUUID->"5bd9760a-e72d-4a04-8af8-dbcf6f6f522d"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "ac828fe0-670b-4210-a128-692118bad269"], 
    StyleBox[
     RowBox[{"kph", " ", "Value"}],
     FontWeight->"Bold",
     FontVariations->{"Underline"->True}], Cell[TextData[StyleBox[
    "Definition                                                               \
                               ",
     FontWeight->"Bold",
     FontVariations->{"Underline"->True}]], "TableText",ExpressionUUID->
     "69e9c2f5-6b20-47a3-9026-9f680ad15a58"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "939da9c7-3aa9-416b-b7cc-2a64b55411f6"], "0", Cell[
    "Return all roots along the liquid-vapor line (default)", "TableText",
     ExpressionUUID->"960cc1a1-5f74-47a8-85bd-8473a6d2529d"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "2ad4ff7e-fcd2-4e68-8849-efa030ef4c37"], "1", Cell[TextData[{
     "Return only ",
     StyleBox["liquid",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     " VLE root"
    }], "TableText",ExpressionUUID->"66eee0d6-9010-4e21-8330-f383d3b48f1b"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b004c940-f8bb-4eb5-a5e7-caf8e6bbd335"], "2", Cell[TextData[{
     "Return only ",
     StyleBox["vapor",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     " VLE roots"
    }], "TableText",ExpressionUUID->"c0b5831e-aad9-418b-acd6-4da70ed216f0"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "b0643e40-6d5b-497f-b7b2-bf0dd74af1d5"], "3", Cell[TextData[{
     "Return liquid SLE root (",
     StyleBox["melting line",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     ")"
    }], "TableText",ExpressionUUID->"3e94170b-1783-465b-9b53-14e54a066123"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "4864b858-f16a-40ba-b96a-5bbe5aae0e65"], "4", Cell[TextData[{
     "Return vapor SVE root (",
     StyleBox["sublimation line",
      FontWeight->"Bold",
      FontSlant->"Italic"],
     ")"
    }], "TableText",ExpressionUUID->"c4b967d0-8e2c-4dfc-a125-67db299ace5b"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.8243944429238815`*^9, 3.8243944547871685`*^9}, {
  3.824394577618603*^9, 3.8243946503959465`*^9}, {3.8243947066823964`*^9, 
  3.824394740143897*^9}},
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.05], 
     Scaled[0.15], {
      Scaled[0.8]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->96557464,ExpressionUUID->"19976cb3-f879-4858-8ada-ada2aaad6fc9"],

Cell[TextData[{
 "If ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "ca23d780-883f-494d-bebd-89d789dbd50a"],
 " is omitted, it will be set to the default value of 0.  ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "dfc3359a-a30e-488f-b5db-bbd295acb929"],
 " values of 3 or 4 presently only work for pure components."
}], "Notes",
 CellChangeTimes->{
  3.824389667174818*^9, 3.8243937622783947`*^9, {3.8243942639785275`*^9, 
   3.8243942751546335`*^9}, {3.824394405346409*^9, 3.824394414641548*^9}, {
   3.8243946662655296`*^9, 3.82439469280954*^9}, {3.82439474578584*^9, 
   3.824394792300394*^9}},
 CellID->46382279,ExpressionUUID->"abdfa1f2-1b5f-4c5a-af19-e59d393f10ca"],

Cell[TextData[{
 "The return values are ",
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "f373b36f-431e-4503-8909-cbf0b485f2db"],
 ", ",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "3df0a2a5-ff8e-4bbc-8f97-7c561b3f3c2a"],
 ", ",
 Cell[BoxData[
  StyleBox["T1", "TI"]], "InlineFormula",ExpressionUUID->
  "3bef775f-d685-44d5-a1ad-721e31f960cd"],
 ", ",
 Cell[BoxData[
  StyleBox["P1", "TI"]], "InlineFormula",ExpressionUUID->
  "297fb91b-d8e1-4f91-8771-1412366a9668"],
 ", ",
 Cell[BoxData[
  StyleBox["D1", "TI"]], "InlineFormula",ExpressionUUID->
  "f32e89e3-dc17-4ca1-82c9-8c8c721c7f11"],
 ", ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "a2a7cfbb-890a-4fe0-ad24-d8c02ecef248"],
 ", ",
 Cell[BoxData[
  StyleBox["T2", "TI"]], "InlineFormula",ExpressionUUID->
  "4c4f10ee-c8c5-4a27-bb33-b90c3f91e86d"],
 ", ",
 Cell[BoxData[
  StyleBox["P2", "TI"]], "InlineFormula",ExpressionUUID->
  "5fb379f5-d9cc-4e82-b527-7b4d7d35eb9a"],
 ", ",
 Cell[BoxData[
  StyleBox["D2", "TI"]], "InlineFormula",ExpressionUUID->
  "35cbf387-4a82-4a6b-88c7-1bdcc4000aea"],
 ", ",
 Cell[BoxData[
  StyleBox["k3", "TI"]], "InlineFormula",ExpressionUUID->
  "e638ea30-4afd-4ae5-99c1-5242d3c6ab5f"],
 ", ",
 Cell[BoxData[
  StyleBox["T3", "TI"]], "InlineFormula",ExpressionUUID->
  "78f9da6c-f68f-47b6-a033-d90352ca5859"],
 ", ",
 Cell[BoxData[
  StyleBox["P3", "TI"]], "InlineFormula",ExpressionUUID->
  "aa8e6316-d4b3-4a64-b738-df7b5297b9c5"],
 ", and ",
 Cell[BoxData[
  StyleBox["D3", "TI"]], "InlineFormula",ExpressionUUID->
  "fc5a4dc8-085f-4dfc-8c96-e0202fef350a"],
 ".  If s is passed as a unit ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "e4fcd80e-9bf4-45e6-9149-810f1bdbd845"],
 ", then the temperature, pressure, and density at each root will be returned \
as a unit ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d4290fce-8a33-4968-8a6e-79657c34ad2d"],
 " as well.  If passed as a non-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "f9df7fb0-5a73-4edb-a865-39494ab69843"],
 ", the return values will be non-",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "be981e35-5192-45fa-82e4-999084020208"],
 " values as well in the default REFPROP system of units.  The return values \
will ",
 StyleBox["always",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " be returned in a ruled list, so that each value and its units can be \
clearly identified."
}], "Notes",
 CellChangeTimes->{{3.8243938941955843`*^9, 3.8243942353540883`*^9}, 
   3.824408857066448*^9},
 CellID->671492069,ExpressionUUID->"bfde8ded-71b0-4178-8c18-3806ebbcd178"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "c6ff9a04-9e11-4e02-a9a6-ebfe647a3a66"],
 " is returned as the number of roots found.  It is always ",
 StyleBox["1",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " for ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "acdc96fa-0e8f-4227-b4a7-eb10c5d6c3d8"],
 " values of 1, 3, and 4 if ",
 Cell[BoxData[
  StyleBox["ierr", "TI"]], "InlineFormula",ExpressionUUID->
  "fd723898-e243-4f43-b8fe-de88671e297c"],
 " = 0."
}], "Notes",
 CellChangeTimes->{{3.8243943048990746`*^9, 3.824394379045727*^9}},
 CellID->496784536,ExpressionUUID->"3df3aef4-9f0b-4078-b01e-61ea13ddb398"],

Cell[TextData[{
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "2003cdd1-2d45-426d-b5c4-7fc09e9bb4f3"],
 " and ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "f1b01b00-22b1-414b-b704-9e1657338eae"],
 " indicate the phase of each root found, following convention in the kph \
table above."
}], "Notes",
 CellChangeTimes->{{3.8247173481877427`*^9, 3.8247174191410275`*^9}},
 CellID->479508069,ExpressionUUID->"d5bd6525-09b4-42fa-8a81-b905d32247c9"],

Cell[TextData[{
 "The second root is always set as the root in the vapor at temperatures \
below the maximum entropy on the vapor saturation line. If ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "4f64f459-e86a-44dd-8785-78899318d21e"],
 " is set to 2, and only one root is found in the vapor (this occurs when ",
 Cell[BoxData[
  StyleBox["s", "TI"]], "InlineFormula",ExpressionUUID->
  "f31ea8e9-92c4-44ca-b9d6-5696865439f6"],
 " < ",
 Cell[BoxData[
  StyleBox["Scrit", "TI"]], "InlineFormula",ExpressionUUID->
  "6cff979f-6b02-4fc9-9cf5-54dbe9b6c2eb"],
 ") the state point will be placed in ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "a698332c-2c06-43f7-ab62-0d2e20dd9792"],
 ", ",
 Cell[BoxData[
  StyleBox["T2", "TI"]], "InlineFormula",ExpressionUUID->
  "530d215e-ecf6-4be7-8d1b-d73c8dfa7a56"],
 ", ",
 Cell[BoxData[
  StyleBox["P2", "TI"]], "InlineFormula",ExpressionUUID->
  "2520938f-c547-4317-b1b3-b4aa2e8dd24c"],
 ", ",
 Cell[BoxData[
  StyleBox["D2", "TI"]], "InlineFormula",ExpressionUUID->
  "2a333989-ac41-4179-a287-552cdc5a444b"],
 ". If kph=0 and this situation occurred, the first root (",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "1359e713-5d44-4070-96c4-cd78ed74c7c6"],
 ", ",
 Cell[BoxData[
  StyleBox["T1", "TI"]], "InlineFormula",ExpressionUUID->
  "e4ed352a-380e-4e21-b54d-036f5e91b215"],
 ", ",
 Cell[BoxData[
  StyleBox["P1", "TI"]], "InlineFormula",ExpressionUUID->
  "7f696f05-1c6a-4d16-ad83-50104931f833"],
 ", ",
 Cell[BoxData[
  StyleBox["D1", "TI"]], "InlineFormula",ExpressionUUID->
  "00aa6e84-b24b-436d-a534-815736d3d907"],
 ") would be in the liquid (",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "93ff4c16-065d-4f0a-8514-6fe5817df4e5"],
 "=1, ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "0187b32a-e8a9-4c92-b687-44526329180a"],
 "=2)."
}], "Notes",
 CellChangeTimes->{{3.824393339478259*^9, 3.824393351258786*^9}, {
  3.8243938202344093`*^9, 3.824393885061985*^9}, {3.8243948440669384`*^9, 
  3.824394880254144*^9}, {3.8244086234213514`*^9, 3.8244087132580643`*^9}, {
  3.824408831856876*^9, 3.824408833944265*^9}, {3.824409114293443*^9, 
  3.824409138092787*^9}},
 CellID->13712501,ExpressionUUID->"c3ee55b1-9257-449c-8581-478285fe4d04"],

Cell[TextData[{
 "The third root is the root with the lowest temperature. For fluids with \
multiple roots, when only one root is found in the vapor phase (this happens \
only at very low temperatures, past the region where three roots are \
located), the value of the root is still placed in ",
 Cell[BoxData[
  StyleBox["k3", "TI"]], "InlineFormula",ExpressionUUID->
  "ac2d0591-81dd-45b9-b03b-bc402079a4ca"],
 ", ",
 Cell[BoxData[
  StyleBox["T3", "TI"]], "InlineFormula",ExpressionUUID->
  "77f37f8e-cdd4-4d71-a6cf-c1efa4091e47"],
 ", ",
 Cell[BoxData[
  StyleBox["P3", "TI"]], "InlineFormula",ExpressionUUID->
  "09a1a7a4-c97f-4ae5-b7e6-0431e24d0653"],
 ", ",
 Cell[BoxData[
  StyleBox["D3", "TI"]], "InlineFormula",ExpressionUUID->
  "095c4074-f2d6-4b0f-8a46-dc8847753497"],
 ". ",
 StyleBox["For fluids that never have more than one root",
  FontWeight->"Bold",
  FontSlant->"Italic"],
 " (when there is no maximum entropy along the saturated vapor line), the \
value of the root is always placed in ",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "e9ea7aaa-01e1-44cd-9646-14ceed49d729"],
 ", ",
 Cell[BoxData[
  StyleBox["T1", "TI"]], "InlineFormula",ExpressionUUID->
  "68d42f86-add3-4f73-b910-3ddf57ed3d0a"],
 ", ",
 Cell[BoxData[
  StyleBox["P1", "TI"]], "InlineFormula",ExpressionUUID->
  "cfc1b9b4-6193-49f9-831b-65da267fef04"],
 ", ",
 Cell[BoxData[
  StyleBox["D1", "TI"]], "InlineFormula",ExpressionUUID->
  "c886f8fc-8709-4f16-a1cc-8232aa39907c"],
 "."
}], "Notes",
 CellChangeTimes->{{3.8243937942109857`*^9, 3.824393816834498*^9}, {
   3.824408740104287*^9, 3.824408775760888*^9}, 3.8244092317572346`*^9},
 CellID->809532201,ExpressionUUID->"02223893-5b1e-4ff3-a4be-d9d36dba5078"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"2f66c03d-05e6-4680-bc2e-5b11bc462c48"],

Cell[TextData[ButtonBox["Pure Fluids (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/PureFluidsLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.829558303402691*^9}, {
  3.829558341260483*^9, 3.8295583414499683`*^9}},
 CellID->341631938,ExpressionUUID->"adf1f56b-f9cc-419b-af91-6d2f5c750129"],

Cell[TextData[ButtonBox["Mixtures (Legacy API)",
 BaseStyle->"Link",
 ButtonData->"paclet:RefpropLink/tutorial/MixturesLegacyAPI"]], "Tutorials",
 CellChangeTimes->{{3.829558291402774*^9, 3.8295583216578856`*^9}, {
  3.829558353292308*^9, 3.8295583534847927`*^9}},
 CellID->339404089,ExpressionUUID->"68699984-4896-47cd-be5a-dcd32daab752"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"8160123e-1093-4669-9fef-961a44b449c5"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"a946978d-9adb-4b60-a36d-f6bacfba316f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"4ed9a654-39fa-4190-b411-ebad90b26eb2"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"bcf95404-4412-4888-9727-e51b9c679349"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"fdf10319-e185-40b2-962a-3e1b81c112e8"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["sath",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/sath"]], "InlineFormula",
  ExpressionUUID->"13c3151d-bd3c-4ae0-b579-09dcbdcaebe0"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["satt",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satt"]], "InlineFormula",
  ExpressionUUID->"4a52ae15-9cea-4dce-824f-f786ac1f6ee9"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/satp"]], "InlineFormula",
  ExpressionUUID->"fd1e0ca1-2307-4e11-9957-97c75009e87c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["therm",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/therm"]], "InlineFormula",
  ExpressionUUID->"295e3876-3f25-48c0-9790-b15eee4e8469"]
}], "SeeAlso",
 CellChangeTimes->{{3.824715576372219*^9, 3.82471558848486*^9}},
 CellID->929782353,ExpressionUUID->"f2c37caf-064d-46c3-bdbf-44d8562e9711"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"b85444cb-a86b-4fe7-b48f-19427c595181"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"1da37a88-8441-43f7-9e19-66885d558813"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"da5499d3-35a9-4f32-aad2-3a2cd9fb5621"],

Cell[BoxData["Quit"], "Input",
 CellChangeTimes->{{3.8247165807298384`*^9, 3.824716581571582*^9}},
 CellLabel->"In[11]:=",
 CellID->162614937,ExpressionUUID->"56622da4-1473-48d2-9180-1764b3f1d897"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<RefpropLink`\>\"", "]"}]], "Input",
 CellLabel->"In[1]:=",
 CellID->315831002,ExpressionUUID->"0082dec8-7045-4c4c-bd75-c77abfeb8620"],

Cell[BoxData[
 FrameBox["\<\"Found NIST RefProp Version: 10.0.0.2\"\>",
  Background->RGBColor[0.88, 1, 0.88],
  FrameStyle->None,
  StripOnInput->False]], "Print",
 CellChangeTimes->{3.824716604679887*^9, 3.824718307055948*^9, 
  3.8247184120063105`*^9, 3.82471865752983*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->681739361,ExpressionUUID->"b8be598e-1320-4a1c-9e3c-a79e6ba6621a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Pure Fluids", "ExampleSubsection",ExpressionUUID->
   "f11f340c-4c40-4cdf-926b-d8a62cad4316"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.818818756158816*^9, 3.818818758015851*^9}},
 CellID->70916644,ExpressionUUID->"f5e6a6ff-231e-4585-a2af-5bdc8f3a90fe"],

Cell["Load a pure fluid file using setup.", "ExampleText",
 CellChangeTimes->{{3.8188187705034294`*^9, 3.8188187889102397`*^9}},
 CellID->541852276,ExpressionUUID->"4a0487cf-1d02-4227-a81e-61c29ee14de9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ierr", "=", 
  RowBox[{"setup", "[", 
   RowBox[{"{", "\"\<Water\>\"", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8188187948832483`*^9, 3.8188188137692227`*^9}},
 CellLabel->"In[1]:=",
 CellID->810243786,ExpressionUUID->"e7591018-e85f-4dd6-8c67-099ed5dfc33d"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.818818816281536*^9, 3.81882035483996*^9, 
  3.818820471122165*^9, 3.8188205526950746`*^9, 3.8189085561871862`*^9, 
  3.824715956610566*^9, 3.82471661015126*^9, 3.8247183099811325`*^9, 
  3.8247184162619424`*^9, 3.8247186610603886`*^9},
 CellLabel->"Out[1]=",
 CellID->194804153,ExpressionUUID->"945d002b-bedf-4466-a054-ed5b1414840d"]
}, Open  ]],

Cell["Set a saturation pressure.", "ExampleText",
 CellChangeTimes->{{3.8188188473264933`*^9, 3.8188188637824917`*^9}, {
  3.818908510436492*^9, 3.818908513171219*^9}},
 CellID->262208212,ExpressionUUID->"67504843-3f4a-4252-8683-3fb77c95caab"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["P", "sat"], "=", 
   RowBox[{"1.0", "MPa"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.81881886662792*^9, 3.818818894352872*^9}, {
  3.8189085169401016`*^9, 3.8189085477896404`*^9}, {3.824715945587043*^9, 
  3.824715949763872*^9}},
 CellLabel->"In[2]:=",
 CellID->356756438,ExpressionUUID->"11d37136-390b-40eb-871f-e7ef95b0a478"],

Cell["\<\
Get the saturation pressure as well as the bubble and dew point molar \
densities.\
\>", "ExampleText",
 CellChangeTimes->{{3.8188189157755613`*^9, 3.81881900567849*^9}},
 CellID->80879702,ExpressionUUID->"e48842b1-94a7-4031-bf72-a9019dea6bef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"satp", "[", 
  SubscriptBox["P", "sat"], "]"}]], "Input",
 CellChangeTimes->{{3.8188189053135643`*^9, 3.8188189080133457`*^9}, {
  3.8188190127665405`*^9, 3.818819020469969*^9}, {3.8189085223426557`*^9, 
  3.8189085274759593`*^9}, {3.8247159749575124`*^9, 3.8247159776922007`*^9}},
 CellLabel->"In[3]:=",
 CellID->181233377,ExpressionUUID->"148804f4-4f42-4e52-a9b1-b04d291b367e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Tsat\"\>", "\[Rule]", 
    TemplateBox[{"453.0280078816967`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dliq\"\>", "\[Rule]", 
    TemplateBox[{"49.243190052838486`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"Dvap\"\>", "\[Rule]", 
    TemplateBox[{"0.28559335225811316`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"xliq\"\>", "\[Rule]", 
    RowBox[{"{", "1.`", "}"}]}], ",", 
   RowBox[{"\<\"xvap\"\>", "\[Rule]", 
    RowBox[{"{", "1.`", "}"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.818819024936027*^9, 3.818819081744127*^9, 3.818820363315297*^9, 
   3.818820479546666*^9, 3.818820561248217*^9, 3.818908565108343*^9, {
   3.824715965823903*^9, 3.824715978905984*^9}, 3.8247166164015465`*^9, 
   3.824718316829801*^9, 3.824718424470982*^9, 3.8247186674736433`*^9},
 CellLabel->"Out[3]=",
 CellID->489755420,ExpressionUUID->"1be18096-8137-464c-99b3-264ce75b5a59"]
}, Open  ]],

Cell["\<\
Set up functions to extract the saturation temperature as well as the liquid \
and vapor density as a function of pressure.\
\>", "ExampleText",
 CellChangeTimes->{{3.8188213059350233`*^9, 3.8188213514064236`*^9}, {
   3.8189085999880686`*^9, 3.8189086027396894`*^9}, {3.8189086673798795`*^9, 
   3.8189086772754087`*^9}, 3.8247160901306257`*^9},
 CellID->164614660,ExpressionUUID->"0111b7fa-6444-42ad-a7ea-aacacd72c16b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["T", "sat"], "[", "P_", "]"}], ":=", 
   RowBox[{
    RowBox[{"satp", "[", "P", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["D", "liq"], "[", "P_", "]"}], ":=", 
   RowBox[{
    RowBox[{"satp", "[", "P", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SubscriptBox["D", "vap"], "[", "P_", "]"}], ":=", 
   RowBox[{
    RowBox[{"satp", "[", "P", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8188213571720076`*^9, 3.8188214496539717`*^9}, {
  3.8188217258244085`*^9, 3.8188217305178576`*^9}, {3.8189085807724743`*^9, 
  3.8189086218924685`*^9}, {3.8189086959484777`*^9, 3.8189087380678563`*^9}},
 CellLabel->"In[4]:=",
 CellID->17501697,ExpressionUUID->"56fe25aa-0228-4b5c-9dcb-ccbd890caf71"],

Cell["\<\
Then call therm to get the other saturated liquid and saturated vapor \
Entropies @ Psat\
\>", "ExampleText",
 CellChangeTimes->{{3.8188214631508293`*^9, 3.8188214966702013`*^9}, {
  3.818821795580917*^9, 3.818821819397507*^9}, {3.818908755795455*^9, 
  3.818908756213335*^9}, {3.824716035099737*^9, 3.824716036986721*^9}, {
  3.8247181495790153`*^9, 3.8247182026191998`*^9}},
 CellID->21808457,ExpressionUUID->"9e1adfa5-ec56-48f8-869f-2adbdac7936a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["S", "satL"], "=", 
  RowBox[{
   RowBox[{"therm", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["T", "sat"], "[", 
      SubscriptBox["P", "sat"], "]"}], ",", 
     RowBox[{
      SubscriptBox["D", "liq"], "[", 
      SubscriptBox["P", "sat"], "]"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"4", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8188215066425357`*^9, 3.8188215301257467`*^9}, {
   3.8189087619719396`*^9, 3.818908783060549*^9}, {3.824716064651721*^9, 
   3.824716075595487*^9}, {3.8247161111723337`*^9, 3.8247161277958856`*^9}, 
   3.824716692187909*^9, {3.8247182124848175`*^9, 3.8247182207477293`*^9}},
 CellLabel->"In[7]:=",
 CellID->20515876,ExpressionUUID->"2b123bb4-5235-4e01-9a7a-8bf9190b2902"],

Cell[BoxData[
 TemplateBox[{"38.51780443298361`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{
  3.8188215345748196`*^9, 3.81882174409758*^9, 3.818908789189133*^9, {
   3.8247160507050114`*^9, 3.824716078881673*^9}, 3.8247161398117905`*^9, 
   3.824716624976647*^9, 3.8247166988989983`*^9, 3.824718242696046*^9, 
   3.8247183251017075`*^9, 3.8247184318861837`*^9, 3.8247186808558764`*^9},
 CellLabel->"Out[7]=",
 CellID->220773808,ExpressionUUID->"0f01bb0c-ddaf-4084-8f10-ce250173ad91"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["S", "satV"], "=", 
  RowBox[{
   RowBox[{"therm", "[", 
    RowBox[{
     RowBox[{
      SubscriptBox["T", "sat"], "[", 
      SubscriptBox["P", "sat"], "]"}], ",", 
     RowBox[{
      SubscriptBox["D", "vap"], "[", 
      SubscriptBox["P", "sat"], "]"}]}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"4", ",", "2"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.824716744454187*^9, 3.8247167752109566`*^9}, {
  3.8247182266040373`*^9, 3.8247182326189833`*^9}},
 CellLabel->"In[8]:=",
 CellID->383319768,ExpressionUUID->"4b75380a-b883-408d-a568-427da2afd4ac"],

Cell[BoxData[
 TemplateBox[{"118.63082570256393`", 
   RowBox[{
    "\"J\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"K\"", 
     "\[ThinSpace]", "\"mol\"", "\[InvisibleSpace]", "\")\""}], 
   "joules per kelvin mole", 
   FractionBox["\"Joules\"", 
    RowBox[{"\"Kelvins\"", " ", "\"Moles\""}]]},
  "Quantity"]], "Output",
 CellChangeTimes->{3.8247167905649023`*^9, 3.824718248176386*^9, 
  3.8247183281844597`*^9, 3.824718434925062*^9, 3.8247186862135534`*^9},
 CellLabel->"Out[8]=",
 CellID->211224951,ExpressionUUID->"f938c1bb-b649-4e6b-9cdd-5113e6c9412f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "f45463f9-b31f-4d72-bba6-a5b7256086a7"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->760276980,ExpressionUUID->"53a8c636-d583-46ba-9d1d-6b9432dc472a"],

Cell[TextData[{
 "Now, get the saturated liquid properties based on the reverse function \
using ",
 Cell[BoxData[
  SubscriptBox["H", "sat"]],
  FormatType->"StandardForm",ExpressionUUID->
  "60a8de14-a13d-4c32-b869-a49dd49dceee"],
 ".  Omit ",
 Cell[BoxData[
  StyleBox["z", "TI"]], "InlineFormula",ExpressionUUID->
  "7aefc4c7-f500-4989-80e8-4e5b4cb7b05a"],
 " (for pure fluids) and pass 1 for ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "9a4d4624-d523-4dfd-96cc-cc4a9b45bf70"],
 " to get the saturated liquid properties."
}], "ExampleText",
 CellChangeTimes->{{3.824716194228293*^9, 3.8247162385228543`*^9}, {
  3.8247163090034027`*^9, 3.824716373723366*^9}, {3.824718859827108*^9, 
  3.8247188725889816`*^9}},
 CellID->64920817,ExpressionUUID->"6922e5cc-982a-4698-9b67-ba69bc10eb83"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sats", "[", 
  RowBox[{
   SubscriptBox["S", "satL"], ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.824716244856888*^9, 3.8247162637553864`*^9}, {
  3.824716380715657*^9, 3.8247163831551065`*^9}, {3.8247164375875654`*^9, 
  3.824716440493795*^9}, {3.8247168186368413`*^9, 3.8247168264349885`*^9}, {
  3.8247182571234345`*^9, 3.8247182597873125`*^9}},
 CellLabel->"In[9]:=",
 CellID->28090098,ExpressionUUID->"869a141b-6a3f-4543-abda-5f9773de6af4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"nroot\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"k1\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"T1 [K]\"\>", "\[Rule]", 
    TemplateBox[{"453.02797095350803`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P1 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{
     "999.9991501631217`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D1 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"49.24319060006808`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"k2\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"T2 [K]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P2 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D2 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"k3\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"T3 [K]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P3 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D3 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.8247163849582853`*^9, 3.8247164422032237`*^9, 
  3.824716634674722*^9, 3.82471683131993*^9, 3.8247183340018773`*^9, 
  3.824718440748459*^9, 3.824718692918629*^9},
 CellLabel->"Out[9]=",
 CellID->240033982,ExpressionUUID->"9039d4f4-dbd7-4d81-bb5c-740959c249ae"]
}, Open  ]],

Cell[TextData[{
 "Note: As expected, there is only one root (",
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "38e0ab41-3e4e-439a-a2cc-31796f7f8d53"],
 " = 1) when ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "2abca609-1392-49e6-baad-0c8553811c59"],
 " = 1 and it is returned in the first set of values with ",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "1ccb7da9-5f85-4269-bc86-0956b4bbca3b"],
 " = 1 indicating the saturated liquid phase.  The second set of values \
return zeroes, with ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "6ff08d61-db9f-4f71-ada0-318f37ee62c4"],
 " = 0, since there is no second root.  Temperature and pressure values, as \
well as the liquid phase density, match the ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satp"]], "InlineFormula",
  ExpressionUUID->"a739e8a4-fb21-48fc-88fe-24c40aabf6cb"],
 " values exactly."
}], "ExampleText",
 CellChangeTimes->{{3.824717157956383*^9, 3.824717181067593*^9}, {
   3.824717551099202*^9, 3.8247176421467934`*^9}, {3.8247177404798813`*^9, 
   3.824717758525586*^9}, {3.8247178047869205`*^9, 3.8247179301796455`*^9}, {
   3.82471872504373*^9, 3.8247187598357315`*^9}, 3.8247187963640633`*^9, {
   3.8247190867005577`*^9, 3.8247191370988035`*^9}},
 CellID->538030233,ExpressionUUID->"dfbd9893-c624-4b19-9905-302f3e12e3b3"],

Cell[TextData[{
 "Also, get the saturated vapor properties using ",
 Cell[BoxData[
  SubscriptBox["H", "satV"]],
  FormatType->"StandardForm",ExpressionUUID->
  "d17b9a6e-f682-42f1-8bb6-745bcf777189"],
 ", remembering to call ",
 Cell[BoxData[
 "sats"], "InlineFormula",ExpressionUUID->
  "ac9d5a1a-06ad-43d3-ae3c-47cdb581d714"],
 " with ",
 Cell[BoxData[
  StyleBox["kph", "TI"]], "InlineFormula",ExpressionUUID->
  "961b7789-be7f-48d3-8291-e9ce797a36d8"],
 " = 2."
}], "ExampleText",
 CellChangeTimes->{{3.8247168497326946`*^9, 3.824716924115878*^9}, {
  3.824718804666835*^9, 3.8247188382916603`*^9}},
 CellID->227111197,ExpressionUUID->"f27999ae-0976-417b-b0f7-4528902dc520"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sats", "[", 
  RowBox[{
   SubscriptBox["S", "satV"], ",", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.824716839048233*^9, 3.8247168421549625`*^9}, {
  3.8247169395885153`*^9, 3.8247169460512276`*^9}, {3.8247182660595446`*^9, 
  3.8247182701625996`*^9}},
 CellLabel->"In[10]:=",
 CellID->25193501,ExpressionUUID->"52ae95f0-6a03-4eb2-ac9b-4156a5d6a9c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"nroot\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"k1\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"T1 [K]\"\>", "\[Rule]", 
    TemplateBox[{"453.0287876868086`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P1 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{
     "1000.0179459504836`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D1 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"0.2855945745607773`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"k2\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"T2 [K]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P2 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D2 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}], ",", 
   RowBox[{"\<\"k3\"\>", "\[Rule]", "0"}], ",", 
   RowBox[{"\<\"T3 [K]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"K\"", "kelvins", "\"Kelvins\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"P3 [kPa]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", "\"kPa\"", "kilopascals", "\"Kilopascals\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"D3 [mol/L]\"\>", "\[Rule]", 
    TemplateBox[{"0.`", 
      RowBox[{
       "\"mol\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", 
        "\"L\""}], "moles per liter", 
      FractionBox["\"Moles\"", "\"Liters\""]},
     "Quantity"]}]}], "}"}]], "Output",
 CellChangeTimes->{3.824716948518629*^9, 3.8247184587154493`*^9, 
  3.824718940122382*^9},
 CellLabel->"Out[10]=",
 CellID->21289174,ExpressionUUID->"f2d7fbfb-2378-40de-9b1a-0b5be8d7a05a"]
}, Open  ]],

Cell[TextData[{
 "Note: In this case, there is still only one root (",
 Cell[BoxData[
  StyleBox["nroot", "TI"]], "InlineFormula",ExpressionUUID->
  "146bb76d-195a-4485-ae78-c6e7f727b0fa"],
 " = 1) and it is returned in the first position with (",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "2b96a06b-619f-44bc-b5bd-b9105fc27564"],
 " = 1); indicating that this fluid never has more than one root.  The return \
values of ",
 Cell[BoxData[
  StyleBox["k1", "TI"]], "InlineFormula",ExpressionUUID->
  "d66e82cc-e8cd-4377-bc04-fe2b5d5fb8a6"],
 ", ",
 Cell[BoxData[
  StyleBox["k2", "TI"]], "InlineFormula",ExpressionUUID->
  "52bc9846-9971-4902-bc96-574de06dbb69"],
 ", and ",
 Cell[BoxData[
  StyleBox["k3", "TI"]], "InlineFormula",ExpressionUUID->
  "a4a97975-4e4c-48f9-bd56-d529406dd31e"],
 " should always be inspected to make sure the correct root is being used in \
subsequent calculations.  Temperature and pressure values, as well as the \
vapor phase density, match the ",
 Cell[BoxData[
  ButtonBox["satp",
   BaseStyle->"Link",
   ButtonData->"paclet:RefpropLink/ref/Satp"]], "InlineFormula",
  ExpressionUUID->"291ef70d-b9b1-4337-a948-285cf074ce10"],
 " values exactly."
}], "ExampleText",
 CellChangeTimes->{{3.8247176586995306`*^9, 3.8247176682918854`*^9}, {
  3.824717713514963*^9, 3.8247177195478315`*^9}, {3.8247177814523144`*^9, 
  3.8247177846687183`*^9}, {3.8247179406825633`*^9, 3.824718054196054*^9}, {
  3.8247189746121635`*^9, 3.8247190516193867`*^9}, {3.8247196287711244`*^9, 
  3.8247197561475754`*^9}},
 CellID->158249221,ExpressionUUID->"9170cb22-9837-4455-821a-ca60d1c0f848"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"c9fbc2cf-e0a4-4d30-b222-e4e95c1ffec9"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "9e8bda77-446b-4ff2-99d0-ccf66cb31199"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"221ba823-6ffa-4e3a-8dfd-0c8114ba4255"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "8fedb3b5-d871-4642-8ce5-350f695ff537"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"6b27d5fb-711d-49a8-82a8-56d0fa293462"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "fc776d1a-1571-46e9-a774-18a69aab7b59"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"2210a9b6-6a3d-4b9e-98b8-314b1d0d1d30"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "12803ce7-fece-48aa-9d93-9daf35937063"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"f2e38987-4f79-46b5-95f7-f5a2c028e4f5"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "f7c0a4e8-7ef7-4fbd-a9cb-12b950b991c4"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"0231e118-74ef-4811-9df7-1c1ba65519c1"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "cc4266cc-b0d8-4b16-b566-2b97234c300f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"20df69af-2692-4f7c-b4b4-9db5a8882506"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "db07d5b8-c7bb-483f-9a4c-c9108f51e9a7"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"53647ae6-d7d9-4d1c-845b-15871a789638"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "3968dad5-d7e2-4e97-a256-4e5d486b1b74"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"564d418f-ff76-4851-a368-ac55e31f427d"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "3ca14f68-db38-476f-91af-4cf1f46f0f50"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"5a438bd2-9cb9-447e-947b-184dd6660d1f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "82e36d56-19b3-45e5-ab2a-782c266d0802"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"47ec2c2e-a508-4882-b7ce-dabaa959492b"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{-1701, Automatic}, {Automatic, 9}},
CellContext->"Global`",
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"7af67736-08ae-426f-9e8e-70bf067af1b6"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[42983, 1158, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"c9fbc2cf-e0a4-4d30-b222-e4e95c1ffec9",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 46186, 1249}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 666, 15, 22, "History",ExpressionUUID->"aa481e91-aa4e-4a40-a6dc-3fb498db3d1f",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1249, 39, 123, 1, 27, "CategorizationSection",ExpressionUUID->"2a84898a-a34b-4ed2-97ed-fc78acfbdde4",
 CellID->1122911449],
Cell[1375, 42, 134, 2, 31, "Categorization",ExpressionUUID->"e4648e69-d16d-486d-b513-cc8741343e57",
 CellID->686433507],
Cell[1512, 46, 146, 2, 31, "Categorization",ExpressionUUID->"98df60cc-027b-40f6-98c9-4c4e1f0918f0",
 CellID->19400070],
Cell[1661, 50, 135, 2, 31, "Categorization",ExpressionUUID->"04ad1c45-d6ab-4d70-b674-4b71de6863f7",
 CellID->52302932],
Cell[1799, 54, 140, 2, 31, "Categorization",ExpressionUUID->"31a35852-090f-4c5c-ac29-8fd8850249dd",
 CellID->198016702]
}, Closed]],
Cell[CellGroupData[{
Cell[1976, 61, 110, 1, 17, "KeywordsSection",ExpressionUUID->"e0a4d7c6-7300-4dbd-b39b-6577f2f1112f",
 CellID->477174294],
Cell[2089, 64, 176, 2, 17, "Keywords",ExpressionUUID->"68da8749-8e43-4579-ab73-c138005e20d7",
 CellID->1164421360],
Cell[2268, 68, 166, 2, 17, "Keywords",ExpressionUUID->"4e29c4a0-6343-491f-8c31-936d7e4b966b",
 CellID->426357377],
Cell[2437, 72, 225, 3, 17, "Keywords",ExpressionUUID->"e3ff5862-db67-48c3-9ba1-b677ef5c798d",
 CellID->609218670],
Cell[2665, 77, 230, 3, 17, "Keywords",ExpressionUUID->"439be870-ac94-4bbb-9d4a-92947d24c135",
 CellID->433150388],
Cell[2898, 82, 169, 2, 17, "Keywords",ExpressionUUID->"88cc67d7-41d9-4bba-bf60-9be025f9750d",
 CellID->42456996],
Cell[3070, 86, 177, 2, 17, "Keywords",ExpressionUUID->"a2db184c-daec-4d09-b9d9-70d01b956db7",
 CellID->339679400],
Cell[3250, 90, 174, 2, 17, "Keywords",ExpressionUUID->"882f2a15-f813-4507-ab6d-261053702486",
 CellID->440167432]
}, Closed]],
Cell[CellGroupData[{
Cell[3461, 97, 120, 1, 17, "TemplatesSection",ExpressionUUID->"744e7cdc-4835-403c-ae84-88c19ec20a21",
 CellID->1872225408],
Cell[3584, 100, 149, 2, 70, "Template",ExpressionUUID->"12a48844-48d9-4349-89af-1beee084cecc",
 CellID->1562036412],
Cell[3736, 104, 137, 2, 70, "Template",ExpressionUUID->"8e174c9b-dc89-4b9b-8f30-ff719a3c9f88",
 CellID->158391909],
Cell[3876, 108, 136, 2, 70, "Template",ExpressionUUID->"978057ab-69b4-4248-b1f0-f960ce2a77c4",
 CellID->1360575930],
Cell[4015, 112, 137, 2, 70, "Template",ExpressionUUID->"2dfa199d-fa76-43b9-86c9-939332f985d1",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[4189, 119, 108, 1, 17, "DetailsSection",ExpressionUUID->"42026b1d-7778-4490-afcc-6bb72687b271",
 CellID->307771771],
Cell[4300, 122, 202, 3, 31, "Details",ExpressionUUID->"eccb972c-7a48-4510-b973-02a98829b518",
 CellID->670882175],
Cell[4505, 127, 198, 3, 31, "Details",ExpressionUUID->"7ed312dc-3511-45b0-957e-486a80f94745",
 CellID->350963985],
Cell[4706, 132, 195, 3, 31, "Details",ExpressionUUID->"332836a5-cd0a-440e-bf2b-efd9f3d2508d",
 CellID->8391405],
Cell[4904, 137, 124, 2, 31, "Details",ExpressionUUID->"21952f21-6d33-484e-8937-30e018bba4a2",
 CellID->3610269],
Cell[5031, 141, 116, 2, 31, "Details",ExpressionUUID->"597e0e59-3024-4559-b6ca-191e3835c5f6",
 CellID->401364205],
Cell[5150, 145, 116, 2, 31, "Details",ExpressionUUID->"1a317fdc-c121-45e5-8275-f3401b10e358",
 CellID->350204745],
Cell[5269, 149, 118, 2, 31, "Details",ExpressionUUID->"48738170-b41d-4dad-b781-16ef61f8093e",
 CellID->732958810],
Cell[5390, 153, 133, 2, 31, "Details",ExpressionUUID->"d232ec52-5a1f-43c3-97c3-c177f329aa27",
 CellID->222905350],
Cell[5526, 157, 122, 2, 31, "Details",ExpressionUUID->"4e6a6763-edd0-4906-b25d-01f80b8ebf9f",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[5685, 164, 102, 1, 62, "ObjectName",ExpressionUUID->"3a8b0151-0845-494e-a79e-4b7fa2975f10",
 CellID->1224892054],
Cell[5790, 167, 649, 15, 86, "Usage",ExpressionUUID->"e143d12b-ed56-4c17-84d0-a664adc56eb6"],
Cell[6442, 184, 315, 6, 37, "Notes",ExpressionUUID->"44f63c2d-4c48-4efe-b7f1-b3f42277e540",
 CellID->831644014],
Cell[6760, 192, 723, 15, 39, "Notes",ExpressionUUID->"6ff3dae2-7032-434e-8aa6-941fbba4019e",
 CellID->107485276],
Cell[7486, 209, 896, 20, 69, "Notes",ExpressionUUID->"9c94a6a4-e6f8-4cda-adad-ae2832ef50bf",
 CellID->204548867],
Cell[8385, 231, 460, 9, 25, "Notes",ExpressionUUID->"5bd9760a-e72d-4a04-8af8-dbcf6f6f522d",
 CellID->1067943069],
Cell[8848, 242, 2461, 57, 100, "2ColumnTableMod",ExpressionUUID->"19976cb3-f879-4858-8ada-ada2aaad6fc9",
 CellID->96557464],
Cell[11312, 301, 736, 16, 39, "Notes",ExpressionUUID->"abdfa1f2-1b5f-4c5a-af19-e59d393f10ca",
 CellID->46382279],
Cell[12051, 319, 2827, 84, 83, "Notes",ExpressionUUID->"bfde8ded-71b0-4178-8c18-3806ebbcd178",
 CellID->671492069],
Cell[14881, 405, 698, 19, 25, "Notes",ExpressionUUID->"3df3aef4-9f0b-4078-b01e-61ea13ddb398",
 CellID->496784536],
Cell[15582, 426, 505, 12, 25, "Notes",ExpressionUUID->"d5bd6525-09b4-42fa-8a81-b905d32247c9",
 CellID->479508069],
Cell[16090, 440, 2343, 61, 71, "Notes",ExpressionUUID->"c3ee55b1-9257-449c-8581-478285fe4d04",
 CellID->13712501],
Cell[18436, 503, 1729, 45, 83, "Notes",ExpressionUUID->"02223893-5b1e-4ff3-a4be-d9d36dba5078",
 CellID->809532201]
}, Open  ]],
Cell[CellGroupData[{
Cell[20202, 553, 112, 1, 44, "TutorialsSection",ExpressionUUID->"2f66c03d-05e6-4680-bc2e-5b11bc462c48",
 CellID->250839057],
Cell[20317, 556, 342, 5, 16, "Tutorials",ExpressionUUID->"adf1f56b-f9cc-419b-af91-6d2f5c750129",
 CellID->341631938],
Cell[20662, 563, 339, 5, 16, "Tutorials",ExpressionUUID->"68699984-4896-47cd-be5a-dcd32daab752",
 CellID->339404089]
}, Open  ]],
Cell[CellGroupData[{
Cell[21038, 573, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"8160123e-1093-4669-9fef-961a44b449c5",
 CellID->1268215905],
Cell[21179, 576, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"a946978d-9adb-4b60-a36d-f6bacfba316f",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[21329, 582, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"4ed9a654-39fa-4190-b411-ebad90b26eb2",
 CellID->1584193535],
Cell[21452, 585, 104, 1, 16, "RelatedLinks",ExpressionUUID->"bcf95404-4412-4888-9727-e51b9c679349",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[21593, 591, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"fdf10319-e185-40b2-962a-3e1b81c112e8",
 CellID->1255426704],
Cell[21706, 594, 985, 26, 18, "SeeAlso",ExpressionUUID->"f2c37caf-064d-46c3-bdbf-44d8562e9711",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[22728, 625, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"b85444cb-a86b-4fe7-b48f-19427c595181",
 CellID->38303248],
Cell[22843, 628, 101, 1, 16, "MoreAbout",ExpressionUUID->"1da37a88-8441-43f7-9e19-66885d558813",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[22981, 634, 411, 11, 68, "PrimaryExamplesSection",ExpressionUUID->"da5499d3-35a9-4f32-aad2-3a2cd9fb5621",
 CellID->880084151],
Cell[23395, 647, 197, 3, 25, "Input",ExpressionUUID->"56622da4-1473-48d2-9180-1764b3f1d897",
 CellID->162614937],
Cell[CellGroupData[{
Cell[23617, 654, 175, 3, 25, "Input",ExpressionUUID->"0082dec8-7045-4c4c-bd75-c77abfeb8620",
 CellID->315831002],
Cell[23795, 659, 395, 8, 32, "Print",ExpressionUUID->"b8be598e-1320-4a1c-9e3c-a79e6ba6621a",
 CellID->681739361]
}, Open  ]],
Cell[CellGroupData[{
Cell[24227, 672, 318, 6, 22, "ExampleSubsection",ExpressionUUID->"f5e6a6ff-231e-4585-a2af-5bdc8f3a90fe",
 CellID->70916644],
Cell[24548, 680, 203, 2, 20, "ExampleText",ExpressionUUID->"4a0487cf-1d02-4227-a81e-61c29ee14de9",
 CellID->541852276],
Cell[CellGroupData[{
Cell[24776, 686, 288, 6, 25, "Input",ExpressionUUID->"e7591018-e85f-4dd6-8c67-099ed5dfc33d",
 CellID->810243786],
Cell[25067, 694, 383, 6, 24, "Output",ExpressionUUID->"945d002b-bedf-4466-a054-ed5b1414840d",
 CellID->194804153]
}, Open  ]],
Cell[25465, 703, 243, 3, 20, "ExampleText",ExpressionUUID->"67504843-3f4a-4252-8683-3fb77c95caab",
 CellID->262208212],
Cell[25711, 708, 380, 9, 25, "Input",ExpressionUUID->"11d37136-390b-40eb-871f-e7ef95b0a478",
 CellID->356756438],
Cell[26094, 719, 254, 5, 20, "ExampleText",ExpressionUUID->"e48842b1-94a7-4031-bf72-a9019dea6bef",
 CellID->80879702],
Cell[CellGroupData[{
Cell[26373, 728, 403, 7, 25, "Input",ExpressionUUID->"148804f4-4f42-4e52-a9b1-b04d291b367e",
 CellID->181233377],
Cell[26779, 737, 1307, 30, 66, "Output",ExpressionUUID->"1be18096-8137-464c-99b3-264ce75b5a59",
 CellID->489755420]
}, Open  ]],
Cell[28101, 770, 431, 7, 33, "ExampleText",ExpressionUUID->"0111b7fa-6444-42ad-a7ea-aacacd72c16b",
 CellID->164614660],
Cell[28535, 779, 1038, 29, 66, "Input",ExpressionUUID->"56fe25aa-0228-4b5c-9dcb-ccbd890caf71",
 CellID->17501697],
Cell[29576, 810, 460, 8, 20, "ExampleText",ExpressionUUID->"9e1adfa5-ec56-48f8-869f-2adbdac7936a",
 CellID->21808457],
Cell[CellGroupData[{
Cell[30061, 822, 778, 19, 28, "Input",ExpressionUUID->"2b123bb4-5235-4e01-9a7a-8bf9190b2902",
 CellID->20515876],
Cell[30842, 843, 749, 15, 36, "Output",ExpressionUUID->"0f01bb0c-ddaf-4084-8f10-ce250173ad91",
 CellID->220773808]
}, Open  ]],
Cell[CellGroupData[{
Cell[31628, 863, 602, 17, 28, "Input",ExpressionUUID->"4b75380a-b883-408d-a568-427da2afd4ac",
 CellID->383319768],
Cell[32233, 882, 575, 12, 36, "Output",ExpressionUUID->"f938c1bb-b649-4e6b-9cdd-5113e6c9412f",
 CellID->211224951]
}, Open  ]],
Cell[CellGroupData[{
Cell[32845, 899, 242, 5, 16, "ExampleDelimiter",ExpressionUUID->"53a8c636-d583-46ba-9d1d-6b9432dc472a",
 CellID->760276980],
Cell[33090, 906, 823, 20, 39, "ExampleText",ExpressionUUID->"6922e5cc-982a-4698-9b67-ba69bc10eb83",
 CellID->64920817],
Cell[CellGroupData[{
Cell[33938, 930, 476, 9, 25, "Input",ExpressionUUID->"869a141b-6a3f-4543-abda-5f9773de6af4",
 CellID->28090098],
Cell[34417, 941, 2186, 51, 121, "Output",ExpressionUUID->"9039d4f4-dbd7-4d81-bb5c-740959c249ae",
 CellID->240033982]
}, Open  ]],
Cell[36618, 995, 1474, 32, 70, "ExampleText",ExpressionUUID->"dfbd9893-c624-4b19-9905-302f3e12e3b3",
 CellID->538030233],
Cell[38095, 1029, 679, 18, 23, "ExampleText",ExpressionUUID->"f27999ae-0976-417b-b0f7-4528902dc520",
 CellID->227111197],
Cell[CellGroupData[{
Cell[38799, 1051, 378, 8, 25, "Input",ExpressionUUID->"52ae95f0-6a03-4eb2-ac9b-4156a5d6a9c5",
 CellID->25193501],
Cell[39180, 1061, 2093, 50, 121, "Output",ExpressionUUID->"f2d7fbfb-2378-40de-9b1a-0b5be8d7a05a",
 CellID->21289174]
}, Open  ]],
Cell[41288, 1114, 1634, 37, 83, "ExampleText",ExpressionUUID->"9170cb22-9837-4455-821a-ca60d1c0f848",
 CellID->158249221]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42983, 1158, 155, 2, 54, "ExtendedExamplesSection",ExpressionUUID->"c9fbc2cf-e0a4-4d30-b222-e4e95c1ffec9",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[43141, 1162, 242, 5, 31, "ExampleSection",ExpressionUUID->"221ba823-6ffa-4e3a-8dfd-0c8114ba4255",
 CellID->1293636265],
Cell[43386, 1169, 265, 5, 19, "ExampleSection",ExpressionUUID->"6b27d5fb-711d-49a8-82a8-56d0fa293462",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[43676, 1178, 244, 5, 19, "ExampleSection",ExpressionUUID->"2210a9b6-6a3d-4b9e-98b8-314b1d0d1d30",
 CellID->2061341341],
Cell[43923, 1185, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"f2e38987-4f79-46b5-95f7-f5a2c028e4f5",
 CellID->1757724783],
Cell[44173, 1192, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"0231e118-74ef-4811-9df7-1c1ba65519c1",
 CellID->1295379749]
}, Closed]],
Cell[44435, 1200, 248, 5, 19, "ExampleSection",ExpressionUUID->"20df69af-2692-4f7c-b4b4-9db5a8882506",
 CellID->258228157],
Cell[44686, 1207, 259, 5, 19, "ExampleSection",ExpressionUUID->"53647ae6-d7d9-4d1c-845b-15871a789638",
 CellID->2123667759],
Cell[44948, 1214, 252, 5, 19, "ExampleSection",ExpressionUUID->"564d418f-ff76-4851-a368-ac55e31f427d",
 CellID->1305812373],
Cell[45203, 1221, 257, 5, 19, "ExampleSection",ExpressionUUID->"5a438bd2-9cb9-447e-947b-184dd6660d1f",
 CellID->1653164318],
Cell[45463, 1228, 249, 5, 19, "ExampleSection",ExpressionUUID->"47ec2c2e-a508-4882-b7ce-dabaa959492b",
 CellID->589267740]
}, Open  ]]
}
]
*)

